inherited fmEditSTAGES: TfmEditSTAGES
  Left = 315
  Top = 116
  Width = 731
  Height = 741
  Caption = 'fmEditSTAGES'
  Constraints.MinHeight = 741
  Constraints.MinWidth = 731
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 687
    Width = 723
  end
  inherited Panel1: TPanel
    Width = 723
    inherited BitBtn1: TBitBtn
      Left = 553
    end
    inherited BitBtn2: TBitBtn
      Left = 641
    end
  end
  object GroupBox3: TGroupBox [2]
    Left = 0
    Top = 45
    Width = 723
    Height = 57
    Align = alTop
    Caption = #1058#1080#1087' '#1069#1090#1072#1087#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    DesignSize = (
      723
      57)
    object eSDIDSTAGES: TcxButtonEdit
      Tag = 10
      Left = 10
      Top = 23
      Anchors = [akLeft, akTop, akRight]
      ParentFont = False
      Properties.Buttons = <
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = eTypeTemplLessonPropertiesButtonClick
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 0
      Width = 705
    end
  end
  object GroupBox1: TGroupBox [3]
    Left = 0
    Top = 102
    Width = 723
    Height = 57
    Align = alTop
    Caption = #1052#1077#1090#1086#1076' '#1086#1073#1091#1095#1077#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    DesignSize = (
      723
      57)
    object eIDMETOD: TcxButtonEdit
      Tag = 10
      Left = 10
      Top = 23
      Anchors = [akLeft, akTop, akRight]
      ParentFont = False
      Properties.Buttons = <
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = eIDMETODPropertiesButtonClick
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 0
      Width = 705
    end
  end
  object GroupBox5: TGroupBox [4]
    Left = 0
    Top = 159
    Width = 723
    Height = 57
    Align = alTop
    Caption = #1057#1091#1073#1098#1077#1082#1090
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    DesignSize = (
      723
      57)
    object eIDSUBJ: TcxButtonEdit
      Tag = 10
      Left = 10
      Top = 23
      Anchors = [akLeft, akTop, akRight]
      ParentFont = False
      Properties.Buttons = <
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = eIDSUBJPropertiesButtonClick
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 0
      Width = 705
    end
  end
  object GroupBox6: TGroupBox [5]
    Left = 0
    Top = 216
    Width = 723
    Height = 57
    Align = alTop
    Caption = #1054#1073#1098#1077#1082#1090
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    DesignSize = (
      723
      57)
    object eIDOBJ: TcxButtonEdit
      Tag = 10
      Left = 10
      Top = 23
      Anchors = [akLeft, akTop, akRight]
      ParentFont = False
      Properties.Buttons = <
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = eIDOBJPropertiesButtonClick
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 0
      Width = 705
    end
  end
  object GroupBox7: TGroupBox [6]
    Left = 0
    Top = 630
    Width = 723
    Height = 57
    Align = alBottom
    Caption = #1054#1073#1097#1072#1103' '#1087#1088#1086#1076#1086#1083#1078#1080#1090#1077#1083#1100#1085#1086#1089#1090#1100' ('#1084#1080#1085')'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    object cxDBCurrencyEdit1: TcxDBCurrencyEdit
      Left = 11
      Top = 20
      DataBinding.DataField = 'CTIME'
      DataBinding.DataSource = dsSTAGES
      Properties.AssignedValues.DisplayFormat = True
      Properties.DecimalPlaces = 0
      Style.TextColor = clWindowText
      TabOrder = 0
      Width = 206
    end
  end
  object GroupBox2: TGroupBox [7]
    Left = 0
    Top = 469
    Width = 723
    Height = 161
    Align = alClient
    Caption = #1055#1083#1072#1085#1080#1088#1091#1077#1084#1099#1081' '#1088#1077#1079#1091#1083#1100#1090#1072#1090' '#1101#1090#1072#1087#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    DesignSize = (
      723
      161)
    object cxDBMemo4: TcxDBMemo
      Left = 8
      Top = 18
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'CRESULT'
      DataBinding.DataSource = dsSTAGES
      Properties.ReadOnly = False
      Style.TextColor = clWindowText
      TabOrder = 0
      Height = 130
      Width = 707
    end
  end
  object GroupBox4: TGroupBox [8]
    Left = 0
    Top = 273
    Width = 723
    Height = 98
    Align = alTop
    Caption = #1055#1086#1089#1083#1077#1076#1086#1074#1072#1090#1077#1083#1100#1085#1086#1089#1090#1100' '#1076#1077#1081#1089#1090#1074#1080#1081' '#1091#1095#1080#1090#1077#1083#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    DesignSize = (
      723
      98)
    object cxDBMemo1: TcxDBMemo
      Left = 8
      Top = 18
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'ACTTEACHER'
      DataBinding.DataSource = dsSTAGES
      Properties.ReadOnly = False
      Style.TextColor = clWindowText
      TabOrder = 0
      Height = 71
      Width = 707
    end
  end
  object GroupBox8: TGroupBox [9]
    Left = 0
    Top = 371
    Width = 723
    Height = 98
    Align = alTop
    Caption = #1055#1086#1089#1083#1077#1076#1086#1074#1072#1090#1077#1083#1100#1085#1086#1089#1090#1100' '#1076#1077#1081#1089#1090#1074#1080#1081' '#1091#1095#1072#1097#1080#1093#1089#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    DesignSize = (
      723
      98)
    object cxDBMemo2: TcxDBMemo
      Left = 8
      Top = 18
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'ACTLEARNER'
      DataBinding.DataSource = dsSTAGES
      Properties.ReadOnly = False
      Style.TextColor = clWindowText
      TabOrder = 0
      Height = 71
      Width = 707
    end
  end
  object dsSTAGES: TDataSource
    DataSet = qSTAGES
    Left = 112
    Top = 64
  end
  object qSTAGES: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select ts.*'
      'from TSTAGESLESSON ts'
      'where IDSTAGES=:IDSTAGES')
    UpdateObject = quSTAGES
    GeneratorField.Field = 'SDID'
    Left = 144
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDSTAGES'
        ParamType = ptUnknown
      end>
    object qSTAGESIDSTAGES: TIntegerField
      FieldName = 'IDSTAGES'
      Origin = '"TSTAGESLESSON"."IDSTAGES"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qSTAGESIDTEMPL: TIntegerField
      FieldName = 'IDTEMPL'
      Origin = '"TSTAGESLESSON"."IDTEMPL"'
    end
    object qSTAGESPOS: TIntegerField
      FieldName = 'POS'
      Origin = '"TSTAGESLESSON"."POS"'
    end
    object qSTAGESSDIDSTAGES: TIntegerField
      FieldName = 'SDIDSTAGES'
      Origin = '"TSTAGESLESSON"."SDIDSTAGES"'
    end
    object qSTAGESCTIME: TIntegerField
      FieldName = 'CTIME'
      Origin = '"TSTAGESLESSON"."CTIME"'
    end
    object qSTAGESIDMETOD: TIntegerField
      FieldName = 'IDMETOD'
      Origin = '"TSTAGESLESSON"."IDMETOD"'
    end
    object qSTAGESIDSUBJ: TIntegerField
      FieldName = 'IDSUBJ'
      Origin = '"TSTAGESLESSON"."IDSUBJ"'
    end
    object qSTAGESIDOBJ: TIntegerField
      FieldName = 'IDOBJ'
      Origin = '"TSTAGESLESSON"."IDOBJ"'
    end
    object qSTAGESCRESULT: TIBStringField
      FieldName = 'CRESULT'
      Origin = '"TSTAGESLESSON"."CRESULT"'
      Size = 2048
    end
    object qSTAGESACTTEACHER: TIBStringField
      FieldName = 'ACTTEACHER'
      Origin = '"TSTAGESLESSON"."ACTTEACHER"'
      Size = 2048
    end
    object qSTAGESACTLEARNER: TIBStringField
      FieldName = 'ACTLEARNER'
      Origin = '"TSTAGESLESSON"."ACTLEARNER"'
      Size = 2048
    end
    object qSTAGESISDELETE: TIntegerField
      FieldName = 'ISDELETE'
      Origin = '"TSTAGESLESSON"."ISDELETE"'
    end
  end
  object quSTAGES: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDSTAGES,'
      '  IDTEMPL,'
      '  POS,'
      '  SDIDSTAGES,'
      '  CTIME,'
      '  IDMETOD,'
      '  IDSUBJ,'
      '  IDOBJ'
      'from TSTAGESLESSON '
      'where'
      '  IDSTAGES = :IDSTAGES')
    ModifySQL.Strings = (
      'update TSTAGESLESSON'
      'set'
      '  CTIME = :CTIME,'
      '  IDMETOD = :IDMETOD,'
      '  IDOBJ = :IDOBJ,'
      '  IDSTAGES = :IDSTAGES,'
      '  IDSUBJ = :IDSUBJ,'
      '  IDTEMPL = :IDTEMPL,'
      '  POS = :POS,'
      '  SDIDSTAGES = :SDIDSTAGES'
      'where'
      '  IDSTAGES = :OLD_IDSTAGES')
    InsertSQL.Strings = (
      'insert into TSTAGESLESSON'
      
        '  (CTIME, IDMETOD, IDOBJ, IDSTAGES, IDSUBJ, IDTEMPL, POS, SDIDST' +
        'AGES)'
      'values'
      
        '  (:CTIME, :IDMETOD, :IDOBJ, :IDSTAGES, :IDSUBJ, :IDTEMPL, :POS,' +
        ' :SDIDSTAGES)')
    DeleteSQL.Strings = (
      'delete from TSTAGESLESSON'
      'where'
      '  IDSTAGES = :OLD_IDSTAGES')
    Left = 176
    Top = 64
  end
end
